EEEEEEEEEEEEEEE MMM MMM =UUU UUU LLL AAAAAAAAA TTTTTTTTITTTTTITT 
EEEEEEEEEEEEEEE MMM MMM = UUU UUU LLL AAAAAAAAA TTTTTTTTTTTTIITT 
EEEEEEEEEEEEEEE MMM MMM = =UUU UUU LLL ARAAARABDA TTTTTTTTTITTTITT 
EEE MMMMMM = =OMMMMMM =(UUU YUU LLL AAA AAA TTT 
EEE MAMMMM = =6MMMMM = =6UUU UUU LLL AAA AAA TTT 
EEE MAMMMM =6MMMMMM =6UUU UUU LLL AAA ABA TTT 
EEE MAM 6 OMA OM UUU LLL AAA Aan TTT 
EEE MAM OMA OMMM (UU UUU LLL AAA TTT 
EEE MAM 6 6OMMM OMMM (UU UUU LLL AAA AMA TTT 
EEEEEEEEEEEE MMM MMM = =UUU YUU LLL ABA hae TTT 
EEEEEEEEEEEE MMM MMM UUU LLL AAA AAA TTT 
EEEEEEEEEEEE MMM MMM = UUU UUU LLL TTT 
EEE MMM MAM = UUU UUU LLL AAAAAAAAAAAAAAA TTT 
EEE MMM MMM = =UUU UUU LLL AAAA TTT 
EEE MMM MMM = UUU UUU LLL ADAAAAAAAAAAAAA TTT 
EEE MMM MMM UUU LLL AA TTT 
EEE MMM MMM = UUU UUU LLL AAA ABA TTT 
EEE MMM MMM = UUU UUU LLL AAA AAA TTT 
EEEEEEEEEEEEEEE MMM MMM UUUUUUUUUUUUUUU  LLLLLLLLLLLLLLL AAA AAA TTT 
EEEEEEEEEEEEEEE MMM MMM UUUUUUUUUUUUUUU LLLLLLLLLLLLLLL AAA AAA TTT 
EEEEEEEEEEEEEEE MMM MMM = UUUUUUUUUUUUUUU  LLLLLLLLLLLLLLL AAA ABR TTT 


kK 9 
*eF ]LE**1D**VAXMACROS 
VV VV AAAAAA XX XX MM MM AAAAAA CCCCCCCC RRRRRRRR 000000 
WV Vw AAAAAA XX XX MM MM AAAAAA CCCCCCCC §~=RRRRRRRR 000000 
VV VV AA AA XX XX MMMM MMMM AA AA CC RR RR 00 
VV VV AA AA XX XX MMMM MMMM AA AA CC RR RR 00 
VV VV AA AA XX = XX MM MM OMM OAA AA CC RR RR 00 
VV VV AA AA XX = XX MM MM MM AA AA CC RR RR 00 
VV VV AA AA XX MM MM AA AA CC RRRRRRRR 00 
vv vv AA XX MM MM AA AA CC RRRRRRRR 00 
vv VV AAAAAAAAAA XX = XK MM MM AAAAAAAAAA CC RR RR 00 
VV VV AAAAAAAAAA XX = XK MM MM AAAAAAAAAA CC RR RR 00 
vv VV BA AA XX XX MM MM AA AA CC RR RR 00 
vv ov AR AA XX XX MM MM AA AA CC RR RR 00 00 
Vv AA AA XX XX MM MM AA AA CCCCCCCC ERR RR 000000 
VV AA AA XX XX MM MM AA AA CCCCCCCC «RR RR 000000 


MM MM AAAAAA RRRRRRRR 
MM MM ARARAB RRRRRRRR 
MMMM 6MMMM AA AA RR RR 
MMMM MMMM AA AA RR RR 
MM 60MM UMM OAA AA RR RR 
MM MM UMM AA AA RR RR 
MM MM AA AA RRRRRRRR 
MM MM AA AA RRRRRRRR 
4M MM AAAAAAAAAA RR RR 

MM MM AAAAAAAAAA RR RR 

MM MM AA AA RR RR 
MM MM AA AA RR RR 
MM MM AA AA RR RR 
Lal MM AA AA RR RR 
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Facility: 


VAX=11 Instruction Emulator (Macros for Condition Handling) 


Abstract: 


This file contains a set of macros that are used in oath ponres 
module of the emulator as an aid in condition handling. T 

MARK_POINT macro is used to indicate all instructions thet’ can 
cause exceptions (such as access violations) that must be modified 
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in some way before pag assed on to the caller. The other macros 


exist to support the K_POINT macro. 


Author: 


Lawrence J. Kenah 


Creation Date: 


16 December 1982 


Modification History: 


v01-005 LJK0026 Lawrence J 19-Mar-1984 
Final clegoue pass. Add MODULE "END label generation to 
END_MARK_POINT macro. 


See Ge eGo Ge Se Se Ge See Ge Se SH Se ee Be we 
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v01=004 LJK0020 Lawrence J. Kenah 26-0c t-1983 
Add alternate restart capability to MARK_POINT macro. Add 
RESTART_POINT macro. 


v01-003 LJKO0008 LAWRENCE J. KENAH 19-0c t-1983 
Move ROPRAND_CHECK macro here from source code to support 
decimal instruction emulation routines in several modules. 


Steal CASE macro from VMS so that emulator does not need 
VMS-specific Libraries in its assembly phase. 


v01-002 Sign extension Lawrence J. Kenah 16-Mar-1983 
Add macro that performs sign-extended assignment. 


v01-001 Original Lawrence J. Kenah 16-Dec-1982 
Add macros that are used in locating instructions that can 
incur exceptions that are capable of being backed up. 


M 
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BEGIN_MARK_POINT = Set up names for MARK_POINT macro 


This macro is invoked before the first call to MARK_POINT to define 
certain oye bol that are used by the MARK_POINT macro. The four symbol 


names defined by this macro and later referenced by the code are 
MODULE _BASE Address from which other offsets are computed 
PC_TABCE_BASE Base address of exception PC table 
ot ae TABLE_BASE Base address of handler table 
ABLE_STZE Number of entries in Seek table 


Two other symbols needed by VAXSEDITPC can be defined if the optional 
flag parameter is set to RESTART. These symbols are called 


RESTART_PC_TABLE_BASE Base address of restart PC table 
RESTART_TABLE_SIZE Number of entries in restart table 
«MACRO BEGIN_MARK_POINT FLAG | 
IF NOT_DEF INED BOOT_SWITCH 
MODULE_BASE = . ; Define base address for module 
TABLE_SIZE = 0 ; Start with an empty table 
+ SAVE peas LOCAL BLOCK 
sect TABLE CON,NOEXE,LCL,PIC,SHR,RD,NOWRT 
PC_TABLE “BAS 
PSECT HANDLER_TABLE CON,NOEXE,LCL,PIC,SHR,RD,NOWRT 
HANDLER_TABLE_BASE: 
-RESTORE _PSECT 


IF IDENTICAL <FLAG> RESTART 
RESTART TABLE SSIIE = 0 

«SAVE LOCAL BLOCK 
RESTART_PC TABLE BASE. 
RESTORE -paPe 


- ENDC 
-ENDC 
-ENDM = BEGIN_MARK _PUuiint 
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MARK _POINT = Indicate Potential Exception Site 


This macro is invoked before writing an instruction that can cause 
an exception that must be backed up before being passed on to the 

user. Its single argument is the address of the handler code that 

will properly back up this exception. 


«MACRO MARK_POINT HANDLER , FLAG 
IF NOT_DEF INED BOOT_SWITCH 
-.-PC... = . = MODULE_BASE ; Remember relative PC 


-lIF NOT_DEF INED TABLE SIZE rie 
-ERROR ; The BEGIN_MARK_POINT macro must be called first 
TABLE_SIZE = TABLE_SIZE + 1 ; Count another table entry 


- SAVE PSECT LOCAL _BLOCK 
-PSECT PC_TABLE 


| 
p | 
“PSECT HANDLER_TABLE ; 
HANDLER = MODULE_BASE ; Store relative handler offset 


“WORD 
-RESTORE_PSECT 
IF IDENTICAL <FLAG>, RESTART 

RESTART_POINT HANDLER 

.ENDC | 
~ENDC | 
.ENDM = MARK_POINT 
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RESTART_POINT = Indicate Alternate Instruction Restart Site 


This macro is invoked as pert of the MARK_POINT macro or by the 
EO_READ macro used by VAXSEDITPC to indicate an alternate site to 
restart the instruction. If the optional argument is present. a symbol 
of the form code'_RESTART is defined to be equal to the current value 
of the restart PC table index. 


-MACRO RESTART_POINT CODE 
If NOT_DEF INED BOOT_SWITCH 
-» sRESTART_PC... = . = MODULE_BASE ; Remember relative PC 
-lIF NOT_DEFINED RESTART_TABLE_ SIZE s* 
. R ; The BEGIN_MARR_POINT macro must be called first 
RESTART_TABLE_SIZE = RESTART_TABLE_SIZE + 1 
; Count another table entry 


.1IF = NOT_BLANK <CODE> > 
CODE’ RESTART = RESTART_TABLE_SIZE 


» SAVE PSECT LOCAL BLOCK 
-PSECT RESTART PC_TABLE 


~ WORD eee o- eee 
RESTORE _PSECT 
~ENDC 


.ENDM — RESTART_POINT 


BOO! 
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END_MARK_POINT = Perform mark point consistency checks 

This macro is invoked 4 the end of the modules that use the mark 
point tables for exception areas qn. tf Its 5 Sey burgese is to insure 
that all PC offsets can fit into bits. t also tests the 
maximum size of the restart table used by EDT tec to insure that the 
table index can fit into the STATE field.) 

-MACRO END_MARK_POINT STATE_VECTOR_SIZE 

IF NOT_DEF INED BOOT_SWITCH 

MODULE_END = . 3; Define label for end of module 


IF GREATER = MODULE_BASE> = 65535> ,- 
ERROR wer, res too large for PC offsets stored in a word 


IF DEF INED RESTART _TABLE_SIZE 


IF GREATER <RESTART_TABLE_SIZE = STATE_VECTOR_SIZE> ,- 
-ERROR ; Restart state Code too Large 


-ENDC 
- ENDC 
-ENDM 


END_MARK_POINT 
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SIGN_EXTEND = Perform sign-extended assignment 
The VAX=11 MACRO assembler does not understand signed byte or were 
quantities. It treats all quantities as longwords (zero extended if 
necessary). This macro allows sign-extended byte or word assignments. 
When an assignment of the form 
SYMBOL = EXPRESSION 
is required, treating EXPRESSION as a signed byte, the macro call 
SIGN_EXTEND EXPRESSION , SYMBOL , CBYTE) 
performs the age torment. padding she upper 24 bytes with zero if the 
expression is in the range 0 to 127 and geding, the yoper 4 bite “ 


ones if the expression s in the range -128 to - to 255). The 
parameter, BYTE, is not necessary. 


th 
hird 


if a signed word assignment is needed, the SIGN_E 


EXTEND macro is invoked 
n the same way, including WORD as the optional’ thi 


rd parameter. 

«MACRO SI 

IF ID 
R 


.IF_FALS 
IDENTICAL Mba +4 WORD 
EQUAL  <NUMBER & *x8060> 
NUMBER 


NUMBER ! “XFFFFOO00 
; TYPE parameter must be BYTE or WORD 


SIGN_EXTEND 
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ESTABLISH HANDLER = Load Handler Address into R10 


This macro simply loads a packing routine address into R10 so that 
intercepted exceptions can be dispatched to the correct instruction 
specific routine for putting an instruction into a consistent state. 


The only reason that this exists in a macro is to allow the reference 
to the sy routine to be disabled when creating the subset 
emulator for the bootstrap. 


Se Ge Ge Oe ee Ge Ge Se Se Se ee 


«MACRO ESTABLISH_HANDLER HANDLER_ADDRESS 
IF NOT_DEF INED BOOT_SWITCH 
MOVAB HANBLER_ADDRESS,R10 


-ENDM ESTABLISH_HANDLER 


LT eee) 


See Ge Ge Ge Ge Be Se Se oe 
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ROPRAND_CHECK = Insure that digit count is LEQuU 31 


The ROPRAND_CHECK macro determines whether the Length of a packed 
decimal string is larger than the allowed Lenget of 31. If an illegal 
Length is detected, then special code is invoked that will reflect a 
reserved operand abort exception back to the caller. The macro is 
defined in such a way that it is possible for multiple invocations in 
a small block of code to use the same BRW instruction. 


«MACRO ROPRAND_CHECK LEN, ?0K 


CMP LEN, #31 
IF DEFINED «eeROPRAND... 
IF LESS EQUAL <<. = ..ROPRAND... > = <128-2> > 
BGTRU _...ROPRAND... 
- IF FALSE 3; IF < . = ...ROPRAND... > GTRU 128 
BLEGU OK 
se ~ROPRAND see a s 
BRw DEC IMAL_ROPRAND 
-~ENDC 3; Is ...ROPRAND... within 128 bytes 
- 1F_FALSE ; IF ...ROPRAND... is not defined 
BLEGuU OK 
oo . -ROPRAND... — 8 
BRw DECIMAL _ROPRAND 
~ENDC 3; Is ...ROPRAND... defined 
MOVZWL LEN, LEN 


.ENDM — ROPRAND_ CHECK 
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CASE = Macro for generating CASE instruction and case table 
CASE SRC,<DISPATCH LIST>,CTYPE=W/B/L),CLIMIT=#0) ,CNMODE=S*#) 


-MACRO_ CASE, SRC hd Sg tt hla o£ LIMIT=#0 ,NMODE=S*#, 2?BASE , 7MAX 


can CASE TYPE SRC, LIMIT .NMODE '<<MAX=BASE>/2>=1 | 
“RP <DISPLIST> 
:S D_woRD EP=BASE 


-ENDM 
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